home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 32 / 032.d81 / weather conversi (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  7KB  |  204 lines
  1. 10 rem     weather conversions
  2. 20 rem      by val j. golding
  3. 30 rem "[141]
  4. 31 [137]100
  5. 50 [153]"loadfor"ht$(7)"(NULL)valatn(NULL)left$val(NULL) "cr$" (NULL)(NULL)(NULL)(NULL)right$(NULL)val(NULL)":[153]ht$(6)sl$cr$fm$:[142]
  6. 60 [151]54276,.:[151]54296,15:[151]54273,10:[151]54274,10
  7. 61 [151]54277,10:[151]54278,10:[151]54276,33:[142]
  8. 100 [143]    initialize and jump
  9. 101 [143]       to main menu
  10. 110 [141]10000:[137]1000
  11. 200 [153]vt$(v21);:[153]ap$;" = ";:zh[178]24:[141]60500
  12. 205 [139]zl$[178]""[167][141]700:[137]200
  13. 210 ap[178][197](zl$)
  14. 220 [153]"loadverify "mb$sp$"    "im$sp$;
  15. 230 [129]i[178]1[164]39:[153]" ";:[130]:[153]" ";:[142]
  16. 235 [153]p$sp$" ":[153]:[142]
  17. 240 p[178]mb:[141]400:[153]p$;sp$;"   ";:p[178]im:[141]400:[153]p$sp$"       ":[142]
  18. 300 [153]vt$(21);:[153]ws$;" = ";:zh[178]14:[141]60500
  19. 305 [139]zl$[178]""[167][141]700:[137]300
  20. 310 ws[178][197](zl$)
  21. 320 [153]"loadverify "mp$sp$"    "kp$sp$kn$"   ";
  22. 325 [153]" ";ph$;sp$;" ";ph$;sp$;"          ";:[141]230:[142]
  23. 350 p[178]ph:[141]400:[153]p$;sp$;:p[178]kp:[141]400:[153]p$;sp$;:p[178]kn:
  24. 355 [141]400:[153]p$;" ":[153]:[142]
  25. 400 [139][182](p)[179].05[167]p$[178]"0.0":[137]420
  26. 410 p[178][180](p)[172][181]([182](p)[172]v10[170].5)[173]v10
  27. 415 p$[178][196]([180](p)[172]([182](p)[170].05)):p$[178][200](p$,[195](p$)[171]1)
  28. 420 [139][195](p$)[179]v9[167]p$[178]" "[170]p$:[137]420
  29. 430 [142]
  30. 500 [153]"loadverify";:[139]s[179][177]4[167]510:[153]"        left$valatn(NULL) right$(NULL)str$val(NULL) "te$"          ";
  31. 510 [139]s[179][177]5[167]520:[153]"  "wc$" valascascvallen(NULL)right$(NULL)val "te$"   ";
  32. 520 [153]"    "dg$sp$"   "dg$sp$dg$;
  33. 525 [153]"    "fh$sp$cl$sp$;
  34. 527 [153]kv$" ";:[141]230
  35. 530 p[178]tf:[141]400:[153]p$;sp$;" ";:p[178]tc:[141]400
  36. 535 [153]p$sp$;:p[178]tk:[141]400:[153]p$:[142]
  37. 600 [153]"for(NULL)(NULL)val(NULL)(NULL) [sys(NULL)val(NULL)(NULL)(NULL)(NULL)for] asc(NULL)(NULL) (NULL)atnright$(NULL) (NULL)val(NULL)(NULL)":[153]"atn(NULL)(NULL) (NULL)(NULL)left$val(NULL) (NULL)val(NULL) (NULL)(NULL) (NULL)val(NULL)(NULL)(NULL)val":
  38. 605 [161]a$:[139]a$[179][177]""[167][142]
  39. 606 [137]605
  40. 700 [153]vt$(23)ht$(12)"right$(NULL)(NULL)atn(NULL)right$str$ - (NULL)valval(NULL)(NULL)val(NULL)":[141]60
  41. 705 [129]i[178]1[164]1500:[130]:[153]vt$(23)ht$(12)"                  ":[142]
  42. 800 [153]ht$(v8);:[129]i[178]1[164]24:[153]" ";:[130]:[153]:[142]
  43. 1000 [143]          main menu
  44. 1020 [153]"load";:[141]50
  45. 1030 [153][163]12)"open1wait  cont";fh$:[153][163]12)"open2wait  cont";cl$
  46. 1035 [153][163]12)"open3wait  cont";kv$:[153][163]12)"open4wait  contleft$valatn(NULL) right$(NULL)str$val(NULL)"
  47. 1037 [153][163]12)"open5wait  cont";wc$:[153][163]12)"open6wait  cont";ws$
  48. 1039 [153][163]12)"open7wait  cont";ap$:[153][163]12)"open8wait  contval(NULL)right$(NULL) (NULL)(NULL)(NULL)chr$(NULL)atn(NULL)print"
  49. 1040 [153]ht$(16)sl$;" ";
  50. 1042 [151]198,.
  51. 1045 [161]s$:[139]s$[178]""[167]1045
  52. 1046 s[178][197](s$)
  53. 1050 [145]s[137]2000,3000,4000,5000,6000,7000,8000,9000:[141]700:[137]1042
  54. 2000 [143]          fahrenheit
  55. 2010 [153]"loadcont"vt$(v8)cv$[199](18)fh$
  56. 2020 [153]vt$(v21)"open"te$;:zh[178][195](te$)[170]1:[141]60500
  57. 2025 [139]zl$[178]""[167][141]700:[137]2020
  58. 2030 fi[178][197](zl$)
  59. 2040 [153]:tf[178]fi:tc[178]5[173]v9[172](tf[171]v32):tk[178]tc[170]273.18:[153][199](18);
  60. 2045 [141]500:[153]:[153]:[153]:[141]600
  61. 2050 [139]a$[178]rt$[167]1000
  62. 2051 [139]s[178]4[167]5000
  63. 2052 [139]s[178]5[167]6000
  64. 2053 [137]2020
  65. 3000 [143]           celsius
  66. 3010 [153]"load"vt$(8)"cont"cv$""cl$" "
  67. 3020 [153]"open"vt$(21)te$;:zh[178][195](te$)[170]1:[141]60500
  68. 3025 [139]zl$[178]""[167][141]700:[137]3020
  69. 3030 ci[178][197](zl$)
  70. 3040 [153]:tf[178](v9[173]5)[172]ci[170]v32:tc[178]ci:tk[178]ci[170]273.18
  71. 3045 [153]"";:[141]500:[153]:[153]:[153]:[141]600
  72. 3050 [139]a$[179][177]rt$[167]3020
  73. 3060 [137]1000
  74. 4000 [143]              kelvin
  75. 4010 [153]"load"vt$(8)"cont"cv$""kv$;:[153]
  76. 4020 [153]vt$(21)"open"te$;:zh[178][195](te$)[170]1:[141]60500
  77. 4025 [139]zl$[178]""[167][141]700:[137]4020
  78. 4030 ki[178][197](zl$)
  79. 4040 [153]:tc[178]ki[171]273.18:tf[178](v9[173]5)[172]tc[170]v32:tk[178]ki:[153][199](18);
  80. 4045 [141]500:[153]:[141]600
  81. 4050 [139]a$[179][177]rt$[167]4020
  82. 4055 [137]1000
  83. 5000 [143]        heat index
  84. 5010 [153]"loadcont"vt$(v8)cv$"left$valatn(NULL) right$(NULL)str$val(NULL)"
  85. 5020 [153]"open"vt$(21)te$" right$(NULL) "fh$" = ";
  86. 5025 zh[178][195](te$)[170][195](fh$)[170]5:[141]60500
  87. 5026 [139]zl$[178]""[167][141]700:[137]5020
  88. 5030 t[178][197](zl$):[139]t[179]70[176]t[177]140[167][141]700:[137]5020
  89. 5040 [153]vt$(21)"open (NULL)val(NULL)lenval(NULL)(NULL) (NULL)val(NULL)atn(NULL)right$(NULL)val left$(NULL)(NULL)right$str$right$(NULL)(NULL) = ";
  90. 5045 zh[178]29:[141]60500:[139]zl$[178]""[167][141]700:[137]5040
  91. 5050 rh[178][197](zl$):[139]rh[179]1[176]rh[177]100[167][141]700:[137]5040
  92. 5060 t2[178]t[172]t:t3[178]t2[172]t:r2[178]rh[172]rh:r3[178]r2[172]rh
  93. 5070 h[178]16.923[170].185212[172]t[170]5.37941[172]rh[171].100254[172]t[172]rh[170].941695e[171]2[172]t2[170].728898e[171]2[172]r2
  94. 5072 h[178]h[170].345372e[171]3[172]t2[172]rh[171].814971e[171]3[172]t[172]r2[170].102102e[171]4[172]t2[172]r2[171].38646e[171]4[172]t3
  95. 5074 h[178]h[170].291583e[171]4[172]r3[170].142721e[171]5[172]t3[172]rh[170].197483e[171]6[172]t[172]r3[171].218429e[171]7[172]t3[172]r2
  96. 5076 h[178]h[170].843296e[171]9[172]t2[172]r3[171].481975e[171]10[172]t3[172]r3[170].5
  97. 5080 fi[178]h:[153]vt$(v8);:[137]2040
  98. 6000 [143]          wind chill
  99. 6010 [153]"load"vt$(8)"cont"cv$""wc$
  100. 6015 [153]"open"
  101. 6020 [153]vt$(21)te$" right$(NULL) "fh$" = ";
  102. 6025 zh[178][195](te$)[170][195](fh$)[170]5:[141]60500
  103. 6026 [139]zl$[178]""[167][141]700:[137]6020
  104. 6030 t[178][197](zl$):[139]t[177]79[176]t[179][171]100[167][141]700:[137]6015
  105. 6040 [153]:[153]"open"ws$" right$(NULL) (NULL)(NULL)left$ = ";:zh[178][195](ws$)[170]11:nc[178]20:mo[178]130:[141]60500
  106. 6045 [139]zl$[178]""[167][141]700:[137]6040
  107. 6050 v[178][197](zl$):[145]v[177]150[137]6070:[139]v[179]5[167]v[178]5
  108. 6060 a[178][188](v)[173][188](10):a[178].6335[172]a:b[178].4013[171]a:b[178]b[172](t[171]90)
  109. 6065 wcet[178]t[171]b:fi[178]wc:[153]vt$(v8);:[137]2040
  110. 6070 [141]700:[153]vt$(22);:[137]6040
  111. 7000 [143]          wind speed
  112. 7010 [141]50
  113. 7020 [153][163]12)"open1wait  cont";mp$;" ";ph$
  114. 7025 [153][163]12)"open2wait  cont";kp$;" ";ph$:[153][163]12)"open3wait  cont";kn$;"         "
  115. 7030 [153][199](18);:[153]vt$(22);:[153]ht$(17);:[153]sl$;:[153]ht$(26);:[153]"";
  116. 7035 [161]w$:w[178][197](w$):[145]w[137]7040,7070,7100:[137]7030
  117. 7040 [153]"load"vt$(8)cv$""mp$" "ph$:[141]300
  118. 7050 ph[178]ws:kp[178]ws[172]1.609:kn[178]ws[172].86897624:[141]350:[141]600
  119. 7060 [139]a$[179][177]rt$[167]7000
  120. 7065 [137]1000
  121. 7070 [153]"load"vt$(8)cv$""kp$" "ph$:[141]300
  122. 7080 ph[178]ws[172].6215:kp[178]ws:kn[178]ph[172].86897624:[141]350:[141]600
  123. 7090 [139]a$[179][177]rt$[167]7000
  124. 7095 [137]1000
  125. 7100 [153]"load"vt$(8)cv$""kn$"         ":[141]300
  126. 7110 ph[178]ws[172]1.1507794:kp[178]ph[172]1.609:kn[178]ws:[141]350:[141]600
  127. 7120 [139]a$[179][177]rt$[167]7000
  128. 7125 [137]1000
  129. 8000 [143]     atmospheric pressure
  130. 8010 [153]"load";:[141]50
  131. 8020 [153][163]6)"open1wait  cont"mb$" (NULL)(NULL) "im$
  132. 8025 [153][163]6)"open2wait  cont"im$" (NULL)(NULL) "mb$
  133. 8030 [153]""vt$(18)ht$(10)sl$" ";
  134. 8035 [161]b$:b[178][197](b$):[145]b[137]8040,8070:[137]8030
  135. 8040 [153]"load"vt$(8)cv$""mb$" (NULL)(NULL) "im$:[141]200
  136. 8050 mb[178]ap:im[178]mb[172].029529928:[141]240:[141]600
  137. 8060 [139]a$[179][177]rt$[167]8000
  138. 8065 [137]1000
  139. 8070 [153]"load"vt$(8)cv$""im$" (NULL)(NULL) "mb$:[141]200
  140. 8080 mb[178]ap[172]33.86395:im[178]ap:[141]240:[141]600
  141. 8090 [139]a$[179][177]rt$[167]8000
  142. 8095 [137]1000
  143. 9000 [143]        exit program
  144. 9010 [153]"load";:[159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  145. 9020 [139]er[179][177]63[167][128]
  146. 9030 [147]"hello connect",8
  147. 9510 [153]"lenhange it!":[128]
  148. 9520 [161]zk$:[139]zk$[178]""[167]9520
  149. 9535 [139][195](zl$)[178]6[175]zk$[179][177]zb$[167]9520
  150. 9540 [139]zk$[178]"+"[176]zk$[178]"-"[175]zl$[178]""[167]zl$[178]zk$
  151. 9550 [139]zk$[178]"."[167]zl$[178]zl$[170]zk$
  152. 9560 [139]zk$[179]"0"[176]zk$[177]"9"[167]zk$[178]""
  153. 9570 zl$[178]zl$[170]zk$:[153]ht$(zh);:[153]zl$;:[137]9520
  154. 9580 [142]
  155. 9600 [139][195](zl$)[179]2[167]z